100 POKE56,32:CLR:DV=PEEK(186):IFDV<8THENDV=8
110 POKE53280,0:POKE53281,0
120 SYS57812"MENUBOX 9000",DV,0:POKE780,0:POKE781,0:POKE782,144:SYS65493
130 SYS57812"FONT",DV,0:POKE780,0:POKE781,0:POKE782,32:SYS65493
140 DIMC(15,2):FORI=0TO15:READC(I,0):NEXT:PRINT"[147]"
150 FORI=0TO15:READC(I,1):NEXT
160 FORI=0TO15:READC(I,2):NEXT:SYS36864+39,10241
170 FORI=1TO5:READA$:SYS36864+42,A$,I,0:NEXT
180 SYS57812"TILES",DV,0:POKE780,0:SYS36864+12:SYS65493
190 SYS36864+27,"TEXT",DV,32768
200 POKE53272,24:
210 LATTICE=36864:BLOCK=36867:BOX=36870:COPY=36873:GOTO370
220 GOSUB510
230 POKE214,24:POKE211,2:SYS58732
240 PRINT" [211][208][193][195][197] [146][159] - [206]EXT  [195] [146][159] - [195]OLOR  [209] [146] [159]- [209]UIT"
250 GETA$:IFA$<>" "ANDA$<>"Q"ANDA$<>"C"THEN250
260 IFA$="C"THEN300
270 IFA$="Q"THENRETURN
280 T1%=RND(0)*137
290 T2%=RND(0)*137
300 C1%=RND(0)*15+1
310 I=RND(0)*3
320 C2%=C(C1%,I)
330 SYSCOPY,8192,T1%,105:SYSBLOCK,0,39,1,1,32,0
340 PRINT"        [212]ILE 1 ="T1%" [212]ILE 2 ="T2%
350 SYSCOPY,8192,T2%,95
360 SYSLATTICE,1,38,3,22,95,105,C1%,C2%:GOTO250
370 SYSBLOCK,0,39,24,24,32,0:GOSUB510
380 SYSBLOCK,5,34,7,13,255,2:SYSBLOCK,6,35,6,12,160,14:SYSBOX,6,35,6,12,7
390 SYS36864+39,10241:SYS36864+57,7,34,7,11,1,14,1,14,1,5,0
400 ONF%GOSUB410,450,220,490,620:GOTO370
410 SYS36864+54,"$:*",DV,3*4096:F=F%-1
420 SYSBLOCK,2,36,5,18,255,2:SYSBOX,3,37,4,17,7:SYSBLOCK,4,36,16,16,32,0
430 POKE214,16:POKE211,4:SYS58732:PRINT"[153] [195][210][211][210]/[210][197][212][213][210][206]: [212]OGGLE  [211][208][193][195][197]: [197]XIT"
440 SYS36864+60,4,5,15,1,3,1,7,1:RETURN
450 SYSBLOCK,0,39,13,16,160,14:POKE214,14:POKE211,1:SYS58732
460 PRINT"[154][195][210][211][210]-[213][208]/[196][207][215][206] - [211][195][210][207][204][204]  [198]1/[198]7 - [211][195][210][207][204][204]"
470 PRINT"[200][207][205][197]/[195][204][210] - [212][207][208]/[194][207][212][212][207][205]  [210][197][212][213][210][206] - [197][216][201][212]
480 [158]36864[170]48,32768:L[178]F%[171]1:[158]36864[170]57,0,39,2,12,1,3,1,3,0,L,0:[142]
490 [128]
500 [128]
510 [129]I[178]1[164]10:[158]BOX,10[171]I,29[170]I,12[171]I,13[170]I,5:[130]
520 [158]LATTICE,1,38,3,22,95,105,10,2
530 [153]"PRINT        (null) VAL (null) (null)  CLOSE(null) (null) (null) (null)CLOSEPEEKCLOSE(null) (null)       "
540 [158]BLOCK,1,38,0,0,100,1:[142]
550 [128]
560 [131]00,15,10,14,10,03,14,05,09,10,08,12,14,03,05,03
570 [131]00,12,08,05,08,06,12,13,02,08,04,15,11,07,11,12
580 [131]00,11,04,06,06,13,04,03,07,07,07,01,01,15,01,14
590 [131]"(null)EE ATN ASCILE (null)EQUESTOR","(null)SE (null)ENU ATNS (null)EADER","(null)EE (null)ILES RIGHT$N ATNCTION"
600 [131]"(null)UIT (null)O PEEKASIC","(null)UIT (null)O (null)(null)ATNSTR$(null)(null)ATN(null)"
610 [144]
620 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
630 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]650
640 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
650 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
660 [160]2:[159]2,I,2:[160]2:[139]ST[167]680
670 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]690
680 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
690 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
700 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
710 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]